prikaz v promene
Otázka od: roman bradac
3. 5. 2004 20:00
Zdravim vsechny, potreboval bych priradit do promene nejaky prikaz a
posleze ho provest, neco jako:
....
Var Prikaz: string
begin
prikaz:= 'ShowMessage(''to to je dulezita zprava'');'
prikaz;
....
lze to nejak provest nebo obejit?
Odpovedá: mstevlik@gamo.sk
3. 5. 2004 20:00
Napis si proceduru alebo funkciu kt. spravi to co potrebujes a potom ju
volaj kolko krat chces ;)
A bo si naprogramuj vlastny jazyk (skriptovaci) napr
procedure Run(iaCommand: array of string);
begin
if (AnsiUperCase(iaCommand[0]) = 'ZOBRAZ') then
ShowMessage(iaCommand[1])
else
...
end;
Stevlik Marian
ISYS programator
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik@gamo.sk
tel: +421 48 4137935, 4372111
ip-tel: 421 48 4372098
mobil: +412 905 462010
ICQ: 38493645
delphi-l-owner@clexpert.cz wrote on 03.05.2004 14:45:01:
> Zdravim vsechny, potreboval bych priradit do promene nejaky prikaz a
> posleze ho provest, neco jako:
>
> ....
> Var Prikaz: string
> begin
> prikaz:= 'ShowMessage(''to to je dulezita zprava'');'
>
> prikaz;
> ....
>
> lze to nejak provest nebo obejit?
>
>
>
>
Odpovedá: Tomas Emresz
3. 5. 2004 20:00
mgs> A bo si naprogramuj vlastny jazyk (skriptovaci) napr
>> Zdravim vsechny, potreboval bych priradit do promene nejaky prikaz a
>> posleze ho provest, neco jako:
>> ....
>> Var Prikaz: string
>> begin
>> prikaz:= 'ShowMessage(''to to je dulezita zprava'');'
>>
>> prikaz;
>> ....
Nebo pouzij nektery ze skriptovacich engine. Nemusis si psat vlastni,
me se osvedcil innerfuse pascal skript, nyni jiz remote objects pascal
skript. (www.google.com innerfuse pascal skript), neni k tomu size moc
dokumentace, ale da se to pekne rozbehat. Kdyby neco, muzes se ptat na
mym soukr meilu..
--
S pozdravem,
Tomas Emresz
mailto:tomas@emresz.com
Odpovedá: Martin Schayna
3. 5. 2004 20:00
Tomas Emresz <tomas@emresz.com> wrote:
>
> Nebo pouzij nektery ze skriptovacich engine. Nemusis si psat vlastni,
> me se osvedcil innerfuse pascal skript, nyni jiz remote objects pascal
> skript. (www.google.com innerfuse pascal skript), neni k tomu size moc
> dokumentace, ale da se to pekne rozbehat. Kdyby neco, muzes se ptat na
> mym soukr meilu..
Ted uz spis hledej "remobjects pascal script", Innerfuse uz neexistuje viz.:
http://www.carlo-kok.com/
http://www.remobjects.com/?ps
Martin Schayna
Odpovedá: roman bradac
4. 5. 2004 9:42
Dik za typ, ale pokusim se presneji vyjadrit co potrebuji:
Mam nekolik komponent se jmenem adosql1, adosql2, adosql3 ...
A ja potrebuji se na ne dynamicky odkazovat
Prikl:
a: integer;
prikaz: string;
a:=1;
begin;
while a > 10 do
begin
prikaz:='adosql'+str(a)+'.active=true;'
....
/* tady neco, nevim co aby se to provedlo
....
a:=a+1;
end;
end;
-----Original Message-----
From: delphi-l-owner@clexpert.cz [mailto:delphi-l-owner@clexpert.cz] On
Behalf Of mstevlik@gamo.sk
Sent: Monday, May 03, 2004 2:53 PM
To: delphi-l@clexpert.cz
Subject: Re: prikaz v promene
Napis si proceduru alebo funkciu kt. spravi to co potrebujes a potom ju
volaj kolko krat chces ;)
A bo si naprogramuj vlastny jazyk (skriptovaci) napr
procedure Run(iaCommand: array of string);
begin
if (AnsiUperCase(iaCommand[0]) = 'ZOBRAZ') then
ShowMessage(iaCommand[1])
else
...
end;
Stevlik Marian
ISYS programator
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik@gamo.sk
tel: +421 48 4137935, 4372111
ip-tel: 421 48 4372098
mobil: +412 905 462010
ICQ: 38493645
delphi-l-owner@clexpert.cz wrote on 03.05.2004 14:45:01:
> Zdravim vsechny, potreboval bych priradit do promene nejaky prikaz a
> posleze ho provest, neco jako:
>
> ....
> Var Prikaz: string
> begin
> prikaz:= 'ShowMessage(''to to je dulezita zprava'');'
>
> prikaz;
> ....
>
> lze to nejak provest nebo obejit?
>
>
>
>
Odpovedá: Karel Rys
4. 5. 2004 8:43
roman bradac dne 4 May 2004 v 9:26:
> Dik za typ, ale pokusim se presneji vyjadrit co potrebuji:
> Mam nekolik komponent se jmenem adosql1, adosql2, adosql3 ...
> A ja potrebuji se na ne dynamicky odkazovat
zkusil bych
var Pom:tAdoSQL; // nebo co...
case a of
1:Pom:=AdoSql1;
2:Pom:=AdoSql2;
end;
if Pom<>nil then Pom. ....
Komponenta se da najit i podle jmena, ale to nevim z hlavy.
Karel Rys
Odpovedá: Petr Langer
4. 5. 2004 9:46
Uloz si jednotlive reference do nejake dynamicke kolekce (TList ?) a pres
index se pak na ne odvolavej.
HTH,
Petr Langer
----- Original Message -----
From: "roman bradac" <roman.bradac@fotoinfo.cz>
Subject: Re: prikaz v promene
> Dik za typ, ale pokusim se presneji vyjadrit co potrebuji:
> Mam nekolik komponent se jmenem adosql1, adosql2, adosql3 ...
> A ja potrebuji se na ne dynamicky odkazovat
>
> Prikl:
> a: integer;
> prikaz: string;
> a:=1;
> begin;
> while a > 10 do
> begin
> prikaz:='adosql'+str(a)+'.active=true;'
>
> ....
> /* tady neco, nevim co aby se to provedlo
>
> ....
> a:=a+1;
> end;
> end;
Odpovedá: roman bradac
4. 5. 2004 9:14
Presne tomuto se chci vyhnout, musim zadavat k tomu pomerne dosti
slozite podminky kdy a za jakych okolnosti se provede to ci ono a tim se
zdrojovy
kod znacne zneprehledni.
-----Original Message-----
From: delphi-l-owner@clexpert.cz [mailto:delphi-l-owner@clexpert.cz] On
Behalf Of Karel Rys
Sent: Tuesday, May 04, 2004 9:39 AM
To: delphi-l@clexpert.cz
Subject: Re: prikaz v promene
roman bradac dne 4 May 2004 v 9:26:
> Dik za typ, ale pokusim se presneji vyjadrit co potrebuji:
> Mam nekolik komponent se jmenem adosql1, adosql2, adosql3 ...
> A ja potrebuji se na ne dynamicky odkazovat
zkusil bych
var Pom:tAdoSQL; // nebo co...
case a of
1:Pom:=AdoSql1;
2:Pom:=AdoSql2;
end;
if Pom<>nil then Pom. ....
Komponenta se da najit i podle jmena, ale to nevim z hlavy.
Karel Rys
Odpovedá: Karel Rys
4. 5. 2004 9:27
No, ja bych rekl, ze se zneprehledni spis tehdy, kdyz se vlastne predem
nikdy nevi, co se s cim provede 
Zkus tedy to hledani komponent podle jmena - nesedim u Delphi, ale nejspis
formular bude mit motodu nazvanou neco jako "FindComponentByName" - te
predas to jmeno poskladane podle tvych potreb.
Karel Rys
roman bradac dne 4 May 2004 v 9:56:
> Presne tomuto se chci vyhnout, musim zadavat k tomu pomerne dosti
> slozite podminky kdy a za jakych okolnosti se provede to ci ono a tim
> se zdrojovy kod znacne zneprehledni.
>
> -----Original Message-----
> From: delphi-l-owner@clexpert.cz [mailto:delphi-l-owner@clexpert.cz]
> On Behalf Of Karel Rys Sent: Tuesday, May 04, 2004 9:39 AM To:
> delphi-l@clexpert.cz Subject: Re: prikaz v promene
>
> roman bradac dne 4 May 2004 v 9:26:
>
> > Dik za typ, ale pokusim se presneji vyjadrit co potrebuji:
> > Mam nekolik komponent se jmenem adosql1, adosql2, adosql3 ...
> > A ja potrebuji se na ne dynamicky odkazovat
>
> zkusil bych
> var Pom:tAdoSQL; // nebo co...
>
> case a of
> 1:Pom:=AdoSql1;
> 2:Pom:=AdoSql2;
> end;
Odpovedá: Kratochvil Radomir
4. 5. 2004 10:47
Tady je reseni:
TADOSQL(FindComponent('mojeSQL'+IntToStr(a))).Active := True;
Radek Kratochvil
-----Original Message-----
From: roman bradac [mailto:roman.bradac@fotoinfo.cz]
Sent: Tuesday, May 04, 2004 9:27 AM
To: delphi-l@clexpert.cz
Subject: Re: prikaz v promene
Dik za typ, ale pokusim se presneji vyjadrit co potrebuji:
Mam nekolik komponent se jmenem adosql1, adosql2, adosql3 ...
A ja potrebuji se na ne dynamicky odkazovat
Prikl:
a: integer;
prikaz: string;
a:=1;
begin;
while a > 10 do
begin
prikaz:='adosql'+str(a)+'.active=true;'
....
/* tady neco, nevim co aby se to provedlo
....
a:=a+1;
end;
end;
-----Original Message-----
From: delphi-l-owner@clexpert.cz [mailto:delphi-l-owner@clexpert.cz] On
Behalf Of mstevlik@gamo.sk
Sent: Monday, May 03, 2004 2:53 PM
To: delphi-l@clexpert.cz
Subject: Re: prikaz v promene
Napis si proceduru alebo funkciu kt. spravi to co potrebujes a potom ju
volaj kolko krat chces ;)
A bo si naprogramuj vlastny jazyk (skriptovaci) napr
procedure Run(iaCommand: array of string);
begin
if (AnsiUperCase(iaCommand[0]) = 'ZOBRAZ') then
ShowMessage(iaCommand[1])
else
...
end;
Stevlik Marian
ISYS programator
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik@gamo.sk
tel: +421 48 4137935, 4372111
ip-tel: 421 48 4372098
mobil: +412 905 462010
ICQ: 38493645
delphi-l-owner@clexpert.cz wrote on 03.05.2004 14:45:01:
> Zdravim vsechny, potreboval bych priradit do promene nejaky prikaz a
> posleze ho provest, neco jako:
>
> ....
> Var Prikaz: string
> begin
> prikaz:= 'ShowMessage(''to to je dulezita zprava'');'
>
> prikaz;
> ....
>
> lze to nejak provest nebo obejit?
>
>
>
>
Odpovedá: Lukas Barton
4. 5. 2004 10:48
Ahoj,
zkus se podivat na navrhove vzory - zajimat by te mel navrhovy vzor
Command, ktery by ti mohl kod zprehlednit.
Lukas
> Uloz si jednotlive reference do nejake dynamicke kolekce (TList ?) a pres
> index se pak na ne odvolavej.
>
> HTH,
> Petr Langer
>
> ----- Original Message -----
> From: "roman bradac" <roman.bradac@fotoinfo.cz>
> Subject: Re: prikaz v promene
>
>